--[[
   编码: WMS-57-01
   名称: 删除后
   作者：HAN
   日期：2025-1-29

   函数： AfterDataObjDelete
   功能:

   更改记录:

--]]

json  = require ("json")
mobox = require ("OILua_JavelinExt")
m3 = require("oi_base_mobox")

function AfterDataObjDelete( strLuaDEID )
    local   nRet, strRetInfo

    -- 获取 S_NO
    nRet, strRetInfo = mobox.getCurEditDataObjAttr( strLuaDEID, "S_PAC_NO" ) 
    if ( nRet ~= 0 )  then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..strRetInfo ) end 

    local obj_attrs = json.decode( strRetInfo ) 
    local pac_no = obj_attrs[1].value                
    if ( pac_no == '' or pac_no == nil ) then return end           

    local strCondition = "S_PAC_NO = '"..pac_no.."'"
    nRet, strRetInfo = mobox.dbdeleteData(strLuaDEID, "Pre_Alloc_CNTR_Detail", strCondition)
    if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "删除【Pre_Alloc_CNTR_Detail】失败!"..strRetInfo) end    
end